1 FORE=49152TO49212:READA:POKEE,A:NEXT:SYS65409:V=829:VE=828:POKE53280,14:POKE53281,6:POKE646,6:PRINT"[147] [182] [146] [182] [188]":PRINT" [180][146][180][170][170][146]  [146] [187][188]":PRINT" [167][167][146] [182][182][146] [167][167][146]  [146]":PRINT" [181][146][181] [161][146][161] [182][182][146] [190][172]":PRINT"  [146] [181][146][181] [161][146][161] [172]" 2 PRINT" [182] [167][165][146][180] [181][146][181] [172][187][172] [187] [162][162][162]":PRINT" [165][146][165]  [146] [180][146][180] [172][187][161][172][146] [162][187][188][146] [190][188][146] [190][162][188][146] [161][146][161] [188][190]":PRINT" [167][167][146] [170][170][146]  [146] [180][146][180][165][146][180][172][162][187] [146] [165][146][165][161][146][161][162][190][146][161] [162] [146][162] ":PRINT" [181][146][181] [182][182][146][172][187][170][170][146]  [146]  [146]  [146]  [146]  [146] [165][146][180] [172][187][172][187] [161][146][161]" 3 PRINT" [162][146][190] [162][162][146][188][190][188][162][146] [188][162][146][188][162][146] [188][162][162][162][146] [188][190][188][162][162][162][146] [162][162][162][146] ":PRINT" [193] S S O C I A T E D [208] I R A T E S ":PRINT"[153] [205]EMBERS: [195][197][205] , [208][212][195] , [205][197][203]":PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT" PRESENT :" 4 PRINT" [205][197][203]'S [158][198][204][193][211][200]-[195][207][208][217] [153][214]2.0[154][146] ([195])18.04.1985":PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT" [215][197][204][195][207][205][197][160][212][207][160][212][200][197] [215][207][210][204][196][160][207][198][160][198][193][211][212][197][210][160][195][207][208][217][201][206][199]":PRINT" PRESS KEY TO CONTINUE":POKEVE,13:FORE=1TO12:POKEV,E:SYS49152:NEXT:FORE=13TO1STEP-1:POKEV,E:SYS49152:NEXT:GOSUB19:POKE646,6 5 PRINT"[147][201]T TOOK ME ABOUT TWO MONTHS TO COMPLETE":PRINT" THIS PROGRAM. [201] TOOK ROUTINES FROM":PRINT" DIFFERRENT PROGRAMS EVEN THOUGH THEY":PRINT" NEEDED MANY MODIFICATIONS.":PRINT"[212]HE FOLLOWING WERE USED :" 6 PRINT" * [195][207][208][217][160]58.5 [203] BY [211]T.[194]UEHNE ([198][204][193][211][200]-[195][207][208][217][146] WAS BASED ON IT).":PRINT" * [198][193][211][212] [195][207][208][217] BY [212]HOMAS [212]EMPELMANN":PRINT" (ONLY THE SERIAL-BUS ROUTINES)":PRINT" * [208][201][206][203][160][198][204][207][217][196] BY SOME UNKNOWN [198][201][206][206][201][211][200]":PRINT" PERSON (THE IDEA OF EXECUTING A" 7 PRINT" PROGRAM IN THE DISK DRIVE BUFFER":PRINT" WITH #$[197]0-COMMAND)":PRINT" * [198][198][207][210][205][193][212] [214]1.1 FROM THE 1541 FUN CLUB":PRINT" WHO HAD TAKEN IT FROM [212][200][197] [213][206][196][197][210][199][210][207][213][206][196] [206][197][212][215][207][210][203] BY [205]IKE [202].[200]ENRY":PRINT" * [197]SPECIALLY '[212][200][197][160][193][206][193][212][207][205][217][160][207][198][160][212][200][197][160]1541 [196][201][211][203][160][196][210][201][214][197]'-BOOK" 8 PRINT" *** [205][193][206][217][160][212][200][193][206][203][211][160][212][207][160][193][204][204][160][193][194][207][214][197][160]***":GOSUB18:PRINT"[147] * [212]ECHNICAL INFORMATION *":PRINT" * [212]HE PROGRAM CAN HAVE MAX. 31 FILE-":PRINT" NAMES IN MEMORY":PRINT" * [205]AX. FILE-LENGTH IS 223 BLOCKS (IF":PRINT" THE FILE IS LARGER THAN 223 BLOCKS" 9 PRINT" IT CAN'T BE COPIED WITH [198][204][193][211][200]-[195][207][208][217][146])":GOSUB18:PRINT"[147] * [200]OW TO USE *":PRINT" * 12 [211][197][195][207][206][196][211] [198][207][210][205][193][212]":PRINT" >[206][193][205][197],[201][196]< (THERE IS NO OPTION":PRINT" FOR USING ONLY >[206][193][205][197]< )":PRINT" * [196][201][211][208][204][193][217][201][206][199][160][196][201][210][197][195][212][207][210][217]" 10 PRINT" [196]IRECTORY WILL PAUSE FROM ANY":PRINT" KEY AND WILL ABORT FROM [210][213][206]/[211][212][207][208]":PRINT" * [200][193][206][196][204][201][206][199][160][198][201][204][197][211]":PRINT" * [195][207][208][217][201][206][199]":PRINT" SELECT FILES NORMALLY":PRINT" * [211][195][210][193][212][195][200][201][206][199]":PRINT" SELECT FILES NORMALLY AND AFTER" 11 PRINT" THAT SELECT 1 OR 2 (NO DIFFERENCE":PRINT" BETWEEN THEM).[212]HEN SELECT THE":PRINT" SCRATCH FUNCTION '[211]'":PRINT" * [217]OU CAN MOVE DIRECTLY TO COPYING":PRINT" (SCRATCHING) BY PRESSING THE [210][197][212][213][210][206]":PRINT" KEY WHEN SELECTING THE FILES.":GOSUB18 12 PRINT"[147] * [196][201][211][203][160][195][207][205][205][193][206][196][211]":PRINT" [202]UST PRESS 'D' AND THEN YOU":PRINT" CAN TYPE THE DISK COMMAND IN.":PRINT" * FOR EXAMPLE:"CHR$(13)" R0:SHIT-COPY=COPY59":GOSUB18:PRINT"[147] * [195][200][193][206][199][197][160][211][197][195][212][207][210][160][211][212][197][208][160][211][201][218][197]":PRINT" [208]RESS 'C' AND THEN YOU CAN CHANGE 13 [153]" SECTOR STEP SIZE WITH CURSOR KEYS.":[153]" * (null)ORMAL STEP SIZE IS 10.":[153]" (null)OU CAN MAKE WRITING FASTER":[153]" CHANGING STEP SIZE TO 14.":[153]" * PEEKUT NORMAL READING (FLOYD EX.)":[153]" WILL BE SLOWER.":[141]18 14 [153]"LOAD * (null)OTES *":[153]" * (null)OU CAN'T SCRATCH FILES WHICH ARE":[153]" LARGER THAN 223 BLOCKS (BECAUSE":[153]" THE FILES ARE SELECTED WITH THE":[153]" SAME ROUTINE AS WHEN WANTED TO":[153]" COPY THEM)." 15 [153]" * (null)HE PROGRAM CAN USE TWO MODES IN":[153]" WRITING. (null)HEN (null)WAITVAL(null)RIGHT$ASC(null) RIGHT$(null) (null)(null) THEN":[153]" THE DATA IS VERIFIED AFTER WRITING":[153]" ELSE NOT. (null)WAITVAL(null)RIGHT$ASC(null)CLOSE(null)ASCASCCLOSEIS THOUGH":[153]" FASTER.":[153]" * (null)HE PROGRAM HAS FULL CONTROL OVER" 16 [153]" ALL ERRORS. (null)O IT SHOULDN'T":[153]" LOCK UP. PEEKUT DUE TO SPEED":[153]" AND MEMORY REASONS WILL ERRORS":[153]" 22,(24,)27,29 BE REPORTED AS 20":[141]18:[153]"LOAD (null)HANK YOU FOR READING THIS,":[153]" AND ALSO THANKS TO (null)-(null)(null)ASC(null)" 17 [153]" FOR CREATIVE IDEAS!!":[153]" ATNND (null)(null) BEST (?) REGARDS TO MID$LEFT$!!":[153]"":[141]18:::[129]E[178]0[164]60:[153]:[130]:[153]"CONTLOAD"[199](34)"FLASH-COPY*"[199](34)",8":[153]"ONONON";:[128] 18 ::[153]" PRESS ANY KEY TO CONTINUE";:[151]VE,14:[129]E[178]1[164]24:[151]V,E:[158]49152:[130]:[129]E[178]25[164]1[169][171]1:[151]V,E:[158]49152:[130] 19 [146]198,1:[151]198,0:[151]VE,6:[129]E[178]1[164]24:[151]V,E:[158]49152:[130]:[153]"";:[142]:[131] 169,216,133,253,169,000,133:[131] 252,133,254,169,004,133,255:[131] 162,000,160,000,177,254,073:[131] 128,145,254,173,060,003,145:[131] 252,200,192,040,208,240,165:[131] 254,024,105,040,133,254,133 20 [131] 252,165,255,105,000,133,255:[131] 024,105,212,133,253,232,236:[131] 061,003,208,212,096